home *** CD-ROM | disk | FTP | other *** search
/ The Original Shareware 1.1 / The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso / 32 / megatrek.zip / IDLE.ASC < prev    next >
Text File  |  1982-07-03  |  512b  |  16 lines
  1. 50000 J3=0:INPUT"HOW MANY STARDATES";Z5:IF(Z5<R5)AND(K3=0)THEN 50020
  2. 50010 INPUT"ARE YOU SURE";B$:IF LEFT$(B$,1)<>"Y"THEN GOTO 50200
  3. 50020 R6=1
  4. 50030 IF Z5<=0 THEN R6=0
  5. 50040 IF R6=0 THEN GOTO 50200
  6. 50050 T1=Z5:Z6=Z5
  7. 50060 IF K3=0 THEN 50090
  8. 50070 T1=1+RND(1):IF Z5<T1 THEN T1=Z5
  9. 50080 Z6=T1
  10. 50090 IF T1<Z5 THEN GOSUB 1000
  11. 50100 IF A2<>0 THEN GOTO 50200
  12. 50110 GOSUB 9000:J3=1:IF A2<>0 THEN GOTO 50200
  13. 50120 Z5=Z5-Z6:GOTO 50030
  14. 50200 IF J3=0 THEN GOTO 70 ELSE GOTO 331
  15. 60000 REM end overlay
  16. 000:J3